home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr29 / memsize.zip / PROFILE.CPP < prev    next >
Text File  |  1995-01-04  |  9KB  |  239 lines
  1. /**************************************************************** PROFILE.CPP
  2.  *                                                                          *
  3.  *                         "Profile Path" Dialog                            *
  4.  *                                                                          *
  5.  ****************************************************************************/
  6.  
  7. #define INCL_BASE
  8. #define INCL_PM
  9. #include <os2.h>
  10.  
  11. #include <string.h>
  12.  
  13. #include "support.h"
  14. #include "profile.h"
  15.  
  16.  
  17. /****************************************************************************
  18.  *                                                                          *
  19.  *                     Definitions & Declarations                           *
  20.  *                                                                          *
  21.  ****************************************************************************/
  22.  
  23. enum { ENTRY, ERR } ;
  24.  
  25. static METHODFUNCTION InitDlg ;
  26. static METHODFUNCTION Command ;
  27. static METHODFUNCTION OK ;
  28. static METHODFUNCTION Cancel ;
  29.  
  30.   // Global Data
  31.  
  32. static SHORT id ;
  33. static PBYTE Path ;
  34. static int   PathSize ;
  35.  
  36.  
  37. /****************************************************************************
  38.  *                                                                          *
  39.  *      Dialog Message Processor                                            *
  40.  *                                                                          *
  41.  ****************************************************************************/
  42.  
  43. extern MRESULT EXPENTRY ProfileProcessor
  44. (
  45.   HWND hwnd,
  46.   USHORT msg,
  47.   MPARAM mp1,
  48.   MPARAM mp2
  49. )
  50. {
  51.  /***************************************************************************
  52.   *                             Declarations                                *
  53.   ***************************************************************************/
  54.  
  55.   static METHOD Methods [] =
  56.   {
  57.     { WM_INITDLG, InitDlg },
  58.     { WM_COMMAND, Command }
  59.   } ;
  60.  
  61.  /***************************************************************************
  62.   * Dispatch the message according to the method table and return the       *
  63.   *   result.  Any messages not defined above get handled by the system     *
  64.   *   default dialog processor.                                             *
  65.   ***************************************************************************/
  66.  
  67.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefDlgProc ) ) ;
  68. }
  69.  
  70. /****************************************************************************
  71.  *                                                                          *
  72.  *      Initialize Dialog                                                   *
  73.  *                                                                          *
  74.  ****************************************************************************/
  75.  
  76. static MRESULT APIENTRY InitDlg
  77. ( 
  78.   HWND hwnd, 
  79.   USHORT msg,
  80.   MPARAM mp1, 
  81.   MPARAM mp2
  82. )
  83. {
  84.  /***************************************************************************
  85.   * Get parameters from initialization message.                             *
  86.   ***************************************************************************/
  87.  
  88.   PPROFILE_PARMS Parms = (PPROFILE_PARMS) ( PVOIDFROMMP ( mp2 ) ) ;
  89.  
  90.  /***************************************************************************
  91.   * Save parameter data.                                                    *
  92.   ***************************************************************************/
  93.  
  94.   id = Parms->id ;
  95.   Path = Parms->Path ;
  96.   PathSize = Parms->PathSize ;
  97.  
  98.  /***************************************************************************
  99.   * Set the dialog help instance.                                           *
  100.   ***************************************************************************/
  101.  
  102.   WinSetWindowUShort ( hwnd, QWS_ID, Parms->id ) ;
  103.   if ( Parms->hwndHelp )
  104.   {
  105.     WinAssociateHelpInstance ( Parms->hwndHelp, hwnd ) ;
  106.   }
  107.  
  108.  /***************************************************************************
  109.   * Set the entry field contents.                                           *
  110.   ***************************************************************************/
  111.  
  112.   WinSetDlgItemText ( hwnd, id+ENTRY, Path ) ;
  113.  
  114.  /***************************************************************************
  115.   * Return no error.                                                        *
  116.   ***************************************************************************/
  117.  
  118.   return ( MRFROMSHORT ( FALSE ) ) ;
  119. }
  120.  
  121. /****************************************************************************
  122.  *                                                                          *
  123.  *      Process commands received by the dialog.                            *
  124.  *                                                                          *
  125.  ****************************************************************************/
  126.  
  127. static MRESULT APIENTRY Command
  128. ( 
  129.   HWND hwnd, 
  130.   USHORT msg, 
  131.   MPARAM mp1, 
  132.   MPARAM mp2
  133. )
  134. {
  135.  /***************************************************************************
  136.   * Local Declarations                                                      *
  137.   ***************************************************************************/
  138.  
  139.   static METHOD Methods [] =
  140.   {
  141.     { DID_OK,     OK     },
  142.     { DID_CANCEL, Cancel },
  143.   } ;
  144.  
  145.  /***************************************************************************
  146.   * Dispatch the message without a default message processor.               *
  147.   ***************************************************************************/
  148.  
  149.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), PFNWP(NULL) ) ) ;
  150. }
  151.  
  152. /****************************************************************************
  153.  *                                                                          *
  154.  *      Process the dialog's OK button being pressed.                       *
  155.  *                                                                          *
  156.  ****************************************************************************/
  157.  
  158. static MRESULT APIENTRY OK
  159. ( 
  160.   HWND hwnd, 
  161.   USHORT msg, 
  162.   MPARAM mp1, 
  163.   MPARAM mp2
  164. )
  165. {
  166.  /***************************************************************************
  167.   * Verify the entered path.                                                *
  168.   ***************************************************************************/
  169.  
  170.   BYTE Name [256] ;
  171.   WinQueryDlgItemText ( hwnd, id+ENTRY, sizeof(Name), Name ) ;
  172.  
  173.   BYTE FullPath [256] ;
  174.   if ( DosQueryPathInfo ( Name, FIL_QUERYFULLNAME, FullPath, sizeof(FullPath) ) )
  175.   {
  176.     PSZ Message = PSZ ( "ERROR: Not a valid path." ) ;
  177.     WinSetDlgItemText ( hwnd, id+ERR, Message ) ;
  178.     WinAlarm ( HWND_DESKTOP, WA_ERROR ) ;
  179.     WinSetFocus ( HWND_DESKTOP, WinWindowFromID ( hwnd, id+ENTRY ) ) ;
  180.     return ( 0 ) ;
  181.   }
  182.  
  183.   FILESTATUS3 Status ;
  184.   if ( DosQueryPathInfo ( FullPath, FIL_STANDARD, &Status, sizeof(Status) ) )
  185.   {
  186.     PSZ Message = PSZ ( "ERROR: Path does not exist." ) ;
  187.     WinSetDlgItemText ( hwnd, id+ERR, Message ) ;
  188.     WinAlarm ( HWND_DESKTOP, WA_ERROR ) ;
  189.     WinSetFocus ( HWND_DESKTOP, WinWindowFromID ( hwnd, id+ENTRY ) ) ;
  190.     return ( 0 ) ;
  191.   }
  192.  
  193.   if ( ! ( Status.attrFile & FILE_DIRECTORY ) )
  194.   {
  195.     PSZ Message = PSZ ( "ERROR: Specified path is not a directory." ) ;
  196.     WinSetDlgItemText ( hwnd, id+ERR, Message ) ;
  197.     WinAlarm ( HWND_DESKTOP, WA_ERROR ) ;
  198.     WinSetFocus ( HWND_DESKTOP, WinWindowFromID ( hwnd, id+ENTRY ) ) ;
  199.     return ( 0 ) ;
  200.   }
  201.  
  202.  /***************************************************************************
  203.   * Return the full path to the caller.                                     *
  204.   ***************************************************************************/
  205.  
  206.   strncpy ( PCHAR(Path), PCHAR(FullPath), PathSize ) ;
  207.  
  208.  /***************************************************************************
  209.   * Dismiss the dialog with a TRUE status.                                  *
  210.   ***************************************************************************/
  211.  
  212.   WinDismissDlg ( hwnd, TRUE ) ;
  213.  
  214.   return ( 0 ) ;
  215. }
  216.  
  217. /****************************************************************************
  218.  *                                                                          *
  219.  *      Process the dialog's being cancelled.                               *
  220.  *                                                                          *
  221.  ****************************************************************************/
  222.  
  223. static MRESULT APIENTRY Cancel
  224. ( 
  225.   HWND hwnd, 
  226.   USHORT msg, 
  227.   MPARAM mp1, 
  228.   MPARAM mp2
  229. )
  230. {
  231.  /***************************************************************************
  232.   * Dismiss the dialog with a TRUE status.                                  *
  233.   ***************************************************************************/
  234.  
  235.   WinDismissDlg ( hwnd, FALSE ) ;
  236.  
  237.   return ( 0 ) ;
  238. }
  239.